home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / gettysburg.g < prev    next >
Text File  |  1998-05-22  |  18KB  |  711 lines
  1. (game-module "gettysburg"
  2.   (title "Gettysburg")
  3.   (blurb "The Battle of Gettysburg, 1-3 July 1863")
  4.   (instructions (
  5.    "Most of the brigades are off-board, will come in a few at a time; "
  6.    "the Confederates from the north and west, the Federals from the south."
  7.    ""
  8.    "You have to try to hold your positions, while at the same time "
  9.    "charging the enemy."
  10.    ""
  11.    "Artillery can be captured, so be sure to guard it."
  12.    ))
  13.   (variants
  14.     (see-all true)
  15.     ("Day/Night" day-night (true (world (day-length 24))))
  16.     )
  17.   )
  18.  
  19. (unit-type infantry (image-name "soldier-acw")
  20.   (description-format (name "'s brigade (" side-name ")"))
  21.   (help "a single brigade"))
  22. (unit-type cavalry
  23.   (description-format (name "'s cavalry (" side-name ")"))
  24.   )
  25. (unit-type artillery (image-name "cannon")
  26.   (description-format (name "'s artillery (" side-name ")"))
  27.   )
  28. (unit-type supply-train (image-name "wagon"))
  29.  
  30. (define inf infantry)
  31. (define cav cavalry)
  32. (define arty artillery)
  33.  
  34. (terrain-type clear (image-name "straw") (char "+"))
  35. (terrain-type rough (image-name "mountains") (char "^"))
  36. (terrain-type light-woods (char "%"))
  37. (terrain-type orchard)
  38. (terrain-type woods (image-name "forest") (char "%"))
  39. (terrain-type town (image-name "urban") (char "G"))
  40. (terrain-type stream (image-name "water")
  41.   (subtype border))
  42. (terrain-type ravine (image-name "gully")
  43.   (subtype border))
  44. (terrain-type trail (image-name "tan")
  45.   (subtype connection))
  46. (terrain-type road (image-name "brown")
  47.   (subtype connection))
  48.  
  49. ;; This covers the gamut of elevations, from the bottom of Rock Creek to
  50. ;; the top of Big Round Top.
  51.  
  52. (add t* elevation-min 250)
  53. (add t* elevation-max 700)
  54.  
  55. (add (light-woods orchard woods) thickness (10 10 20))
  56.  
  57. (set grid-color "gray")
  58.  
  59. ;;; Static relationships.
  60.  
  61. (add t* capacity 3)
  62.  
  63. (table unit-size-in-terrain
  64.   (u* t* 1)
  65.   (inf road 10)
  66.   (supply-train t* 0)
  67.   )
  68.  
  69. ;(add u* possible-sides (not "independent"))
  70.  
  71. ;;; Vision.
  72.  
  73. (set terrain-seen true)
  74.  
  75. (add u* vision-range 5)
  76.  
  77. (add u* vision-bend 0)
  78.  
  79. (table visibility
  80.   (u* t* 100)
  81.   (u* (orchard light-woods) 50)
  82.   (u* woods 0)
  83.   )
  84.  
  85. (table eye-height
  86.   ;; Infantry can stand on a fence, cavalry is on horse,
  87.   ;; artillery can stand on cannons to see better.
  88.   (u* t* 9)
  89.   )
  90.  
  91. ;;; Actions.
  92.  
  93. (add u* acp-per-turn (8 16 8 8))
  94.  
  95. ;; Night shuts things down considerably.
  96.  
  97. (table acp-night-effect
  98.   ;; 1/4 of normal abilities.
  99.   (u* t* 25)
  100.   ;; Infantry in open terrain can still move around somewhat.
  101.   (infantry clear 50)
  102.   ;; (should allow movement along roads at normal rate?)
  103.   )
  104.   
  105. ;;; Movement.
  106.  
  107. (table mp-to-enter-terrain
  108.   (u* t* 1)
  109.   (u* rough 99)
  110.   (inf rough 2)
  111.   ((cav arty) woods 4)
  112.   ((inf cav) stream 0)
  113.   ((cavalry arty) road 0)
  114.   )
  115.  
  116. (table mp-to-leave-terrain
  117.   (u* t* 1)
  118.   (u* rough 99)
  119.   (inf rough 2)
  120.   ((cav arty) woods 4)
  121.   ((cavalry arty) road 0)
  122.   )
  123.  
  124. (table mp-to-traverse
  125.   ((arty cavalry) road (2 1))
  126.   (supply-train (trail road) (2 1))
  127.   )
  128.  
  129. (table zoc-range
  130.   (inf inf 2)
  131.   )
  132.  
  133. (table mp-to-enter-zoc
  134.   (inf inf 4)
  135.   )
  136.  
  137. (table mp-to-traverse-zoc
  138.   (inf inf 4)
  139.   )
  140.  
  141. ;;; Repair.
  142.  
  143. (table acp-to-repair
  144.   (supply-train u* 4)
  145.   )
  146.  
  147. (table hp-per-repair
  148.   (supply-train u* 2)
  149.   )
  150.  
  151. ;;; Combat.
  152.  
  153. (add u* hp-max 8)
  154.  
  155. (table acp-to-attack
  156.   (u* u* 4)
  157.   (arty u* 0)
  158.   (supply-train u* 0)
  159.   )
  160.  
  161. (table acp-to-defend
  162.   (u* u* 4))
  163.  
  164. (table hit-chance
  165.   (u* u* 50)
  166.   (inf u* (50 40 80 90))
  167.   (cav u* (40 30 50 90))
  168.   (supply-train u* 0)
  169.   )
  170.  
  171. (table damage
  172.   (u* u* 1d3)
  173.   (supply-train u* 0)
  174.   )
  175.  
  176. (table withdraw-chance-per-attack
  177.   ;; Lots of running away in this era.
  178.   (inf u* (30 50 10 10))
  179.   (cav u* (40 20 10 10))
  180.   )
  181.  
  182. (add arty range 5)  ;  (5 or 3 - need two types?)
  183.  
  184. (add arty acp-to-fire 8)
  185.  
  186. (table weapon-height
  187.   (arty t* 4)
  188.   )
  189.  
  190. (table capture-chance
  191.   ;; Infantry can capture the artillery.
  192.   (infantry arty 30)
  193.   )
  194.  
  195. ;; Everybody bounces back over time.
  196.  
  197. (add u* hp-recovery 0.25)
  198.  
  199. ;;; The world.
  200.  
  201. (world 125000 (axial-tilt 22))
  202.  
  203. (area 50 36 (cell-width 1000))
  204.  
  205. (area (terrain
  206.   "50a"
  207.   "aea2e5ae5a2e3ae9ae18a"
  208.   "ae8a2e5aea2e2ae7ae18a"
  209.   "9aeae5ae2ae2ae7ae18a"
  210.   "10ae39a"
  211.   "4ae23ae2ae4ae13a"
  212.   "13ad6ae8a3e4ae13a"
  213.   "ae4a2e5aed5ae3ae25a"
  214.   "ae12ae6ae3ad6a2e3ad12a"
  215.   "ae2ae2ae2ae3ae12a2e4ae16a"
  216.   "5aeae2aea2ead11a2e21a"
  217.   "10aead2ae2a3f6a3e8ae3ae7a"
  218.   "3ae3ae2a2e4ae2a2fe5a3e8a2e3ae6a"
  219.   "aeae3ae3ae4ae10a2e6ae2a3e3ae5a"
  220.   "aea2e2a2e2aead3ad6ae2a2ead4ae7a3e4a"
  221.   "2ae6a2e2ad3ae6a2ea3e15ae4a"
  222.   "2a2e4ad4ae3ae6a3ea3e19a"
  223.   "14ae2ae3ac4aea3eae10ae6a"
  224.   "15a3e5aea7ea2e6ae2a3ed2a"
  225.   "13ad2aeae5ae2a2ea2e2ae3a4e8a"
  226.   "12a2e3ae13ae10ae7a"
  227.   "11ae2ae2ae2ad3aea2eae3ae16a"
  228.   "7a2e2aea3e2ae10ae3ae5ae10a"
  229.   "7a2e2ae7a2d3a2e3ae3ae4a3e7aea"
  230.   "8a2e14a3ea3e10aead3a2ea"
  231.   "9a2e3aeaea2ead2e5a3eae14aea"
  232.   "10ae3aeae3ae2ae3c6ae8a3e3aea"
  233.   "14ae6ae2ae2c7aeae5ac3e4a"
  234.   "21ae2a4e6ae9a2c4a"
  235.   "21ad6e22a"
  236.   "18a3e2a5e9ae2a3e2ad4a"
  237.   "19ae4a2e2aead10a3e2ad3a"
  238.   "18a3e7a2e20a"
  239.   "19a2e3a3ea2e20a"
  240.   "25a2e2ae3ae3ae3a3e6a"
  241.   "50a"
  242. ))
  243.  
  244. (area (aux-terrain stream
  245.   "50a"
  246.   "6agq7acy33a"
  247.   "6agL8ahq32a"
  248.   "6acT8agL32a"
  249.   "7ahq7acXi31a"
  250.   "7acXi7ab?y30a"
  251.   "8ab?y8ahq29a"
  252.   "10ahq7acT29a"
  253.   "10acT8ap}4aem22a"
  254.   "11ady7adU<3agM<21a"
  255.   "12ahq7ady3agL22a"
  256.   "12agL8ahq2agL22a"
  257.   "12agL8acT2agL22a"
  258.   "ai10agL9adyagL22a"
  259.   "ady9agL10adygL22a"
  260.   "2ad}mi6agL11ad:L22a"
  261.   "3ab=?y5acT12ahL22a"
  262.   "6ady5ahq11agL22a"
  263.   "7ahq4agL11acT22a"
  264.   "6aeoL4agL12ady21a"
  265.   "6acU<4acTgq11ady20a"
  266.   "7ady5ahwL12ady19a"
  267.   "8ad}mi2acZL13ady18a"
  268.   "9ab=?y2ahL14ahq17a"
  269.   "12ad}igL14acT17a"
  270.   "13abCwL15ahqae14a"
  271.   "14agNT15acXicT13a"
  272.   "14agLhq14aenKqhq12a"
  273.   "14acTgL15a?YDgL12a"
  274.   "15ad:T16abC:L12a"
  275.   "16ab?y12ac}2moM<12a"
  276.   "18ahq12ab=CYH2m11a"
  277.   "18agL14acU3=<10a"
  278.   "18agL15ady13a"
  279.   "18acL16adq12a"
  280.   "50a"
  281.   ))
  282.  
  283. (area (aux-terrain ravine
  284.   "50a"
  285.   "7agq41a"
  286.   "7agL14ai26a"
  287.   "7acT14ad}3agq20a"
  288.   "8ahq14ab<3a<20a"
  289.   "9a<40a"
  290.   "50a"
  291.   "50a"
  292.   "50a"
  293.   "35ai14a"
  294.   "35ady13a"
  295.   "34agqdy12a"
  296.   "18ae15agLab12a"
  297.   "18agL14agL14a"
  298.   "18agL14acL14a"
  299.   "18agL30a"
  300.   "19a<14agq14a"
  301.   "34agL4ae9a"
  302.   "34agL4acL8a"
  303.   "34acT4ae9a"
  304.   "35ahqeiaoL8a"
  305.   "35agLgMab<8a"
  306.   "36a<a<11a"
  307.   "50a"
  308.   "50a"
  309.   "50a"
  310.   "50a"
  311.   "50a"
  312.   "50a"
  313.   "50a"
  314.   "50a"
  315.   "50a"
  316.   "50a"
  317.   "50a"
  318.   "50a"
  319.   "50a"
  320. ))
  321.  
  322. (area (aux-terrain trail
  323.   "50a"
  324.   "19ae30a"
  325.   "20a@29a"
  326.   "21a>u27a"
  327.   "23a@3ac}21a"
  328.   "24a@3aj>u19a"
  329.   "25a>uaj2a>u17a"
  330.   "27a@j4a@4ai11a"
  331.   "28aE5a@3aj11a"
  332.   "27akr6a@2aj11a"
  333.   "27aj8a@aj11a"
  334.   "27aj9a@j11a"
  335.   "18ai8af10aE11a"
  336.   "18aj9aD9aj11a"
  337.   "18aj9aj9aj11a"
  338.   "18ab9aj9aj11a"
  339.   "28af9aj11a"
  340.   "7ae21aD8af11a"
  341.   "8aD20aj9aD10a"
  342.   "8af20aj9aj10a"
  343.   "9aD18akr9aj10a"
  344.   "9af18aj10aj10a"
  345.   "10a>u12ak3sv10aj10a"
  346.   "12a@7acu2aj4aD9af10a"
  347.   "13a>s2{su3a>uj4an10aD9a"
  348.   "15a2j2a>q3a?suakr@6ai2aj9a"
  349.   "15a2f10a>r2a@5aj2aj9a"
  350.   "16a2D9acsu2a@4aj2ab9a"
  351.   "16a2j12a>ua@3aj12a"
  352.   "16ajn14a>sP2aj12a"
  353.   "14acstr@2ae13a>wr12a"
  354.   "19a@2a@14a@12a"
  355.   "20a@2a@7aksu4aD11a"
  356.   "21a<2a>6sr2a>3sr11a"
  357.   "50a"
  358.   "50a"
  359. ))
  360.  
  361. (area (aux-terrain road
  362.   "50a"
  363.   "7ae4ae2ai3ai10aksq17a"
  364.   "8a>u3a@aj3aj8aksr19a"
  365.   "acu7a@3a@f3aj7akr21a"
  366.   "3a>u6a@3a@D2aj5aksr22a"
  367.   "5a>u5a>u2aE2aj4akr24a"
  368.   "7a>u5a@af2aj4aj25a"
  369.   "9a>u4a@aDaj3akr25a"
  370.   "11a>u3a@faj2akr26a"
  371.   "13a>u2a@Djakr27a"
  372.   "15a>uaAnkr28a"
  373.   "17a>q=?2su26a"
  374.   "15ak3syi3a>su23a"
  375.   "13aksr3a2f6a>su20a"
  376.   "12akr6aDH8a>3su15a"
  377.   "10aksr7apr@12a>3su10a"
  378.   "8aksr9aj@a@16a>2su6a"
  379.   "6aksr11ajaDa@19a>3sqa"
  380.   "4aksr13ajaf2a@24a"
  381.   "3acr15aj2a@2a@23a"
  382.   "20aj3a@2a@22a"
  383.   "20aj4aD2a>su19a"
  384.   "20aj4af5a@18a"
  385.   "20aj5aD5a>u16a"
  386.   "20aj5af7a>u14a"
  387.   "20af6aD8a>u12a"
  388.   "21aD5aj10a>u10a"
  389.   "21aj5af12a>u8a"
  390.   "21aj6a@13a>u6a"
  391.   "21aj7aD14a>u4a"
  392.   "21aj7af16a>u2a"
  393.   "21aj8aD17a<a"
  394.   "21aj8af19a"
  395.   "21aj9aD18a"
  396.   "21ab9ab18a"
  397.   "50a"
  398. ))
  399.  
  400. (area (features (
  401.    (17 "ridge" "Seminary %T")
  402.    (16 "town" "Gettysburg")
  403.    (15 "hill" "Barlow's %T")
  404.    (14 "hill" "Granite %T")
  405.    (13 "hill" "Oak %T")
  406.    (12 "hill" "Benner's %T")
  407.    (11 "hill" "Wolf %T")
  408.    (10 "hill" "Culp's %T")
  409.    (9 "hill" "Power's %T")
  410.    (8 "hill" "Cemetery %T")
  411.    (7 "hill" "Little Round Top")
  412.    (6 "hill" "Big Round Top")
  413.    (5 "ridge" "Cress %T")
  414.    (4 "ridge" "Warfield %T")
  415.    (3 "ridge" "Cemetery %T")
  416.    (2 "ridge" "McPherson's %T")
  417.    (1 "ridge" "Herr %T")
  418.   )
  419.   "50a"
  420.   "50a"
  421.   "50a"
  422.   "33ao16a"
  423.   "50a"
  424.   "50a"
  425.   "8ab41a"
  426.   "8a2b40a"
  427.   "7a3b40a"
  428.   "7a3b3ac36a"
  429.   "7a3b3ac36a"
  430.   "7a2b4a2c3a3q3am25a"
  431.   "8ab5ac4a2q29a"
  432.   "8ab5ac35a"
  433.   "8ab12ad28a"
  434.   "8ab12aidak25a"
  435.   "9ab11a2d6al20a"
  436.   "21a2d27a"
  437.   "21a2d27a"
  438.   "22ad27a"
  439.   "23ad26a"
  440.   "24ad2ad22a"
  441.   "25ad24a"
  442.   "26ad23a"
  443.   "25ab24a"
  444.   "50a"
  445.   "26ah23a"
  446.   "26ah23a"
  447.   "50a"
  448.   "26ag23a"
  449.   "50a"
  450.   "50a"
  451.   "50a"
  452.   "50a"
  453.   "50a"
  454.   "50a"
  455. ))
  456.  
  457. (area (elevations (xform 1 370)
  458.   "5*90,7a3:3k3:2a4*70,a5*130,17a"
  459.   "6*90,:4*90,a4:2k3:2a2*70,2*110,2*70,5*130,16a"
  460.   "6*90,:2*90,a2*90,a4:2k2:3a2*70,3*110,6*130,15a"
  461.   "3*90,2:90,:2*90,a2*90,a4:3k4a3*70,2*110,4*130,260,2*130,14a"
  462.   "3*90,5:2*90,a2*90,a3:3k2aXa3*90,3*110,5*130,2*120,13a"
  463.   "2*90,2N4:2*90,2a2*90,5:k5X3*90,3*110,7*120,12a"
  464.   "4N4:2*90,2a2*90,a4:a2X2*70,110,2*90,110,90,5*110,5*120,11a"
  465.   "4N4:2*90,3aXa5:aX3*70,110,X110,3*90,2*110,4*100,3*120,10a"
  466.   "4N3:3*90,3a2Xa4:2aX3*70,X11*90,3*120,9a"
  467.   "3N4:3*90,a2:2Xa5:a:4X4*90,5*80,4*90,2N8a"
  468.   "7:3*90,2a2:aXa4:2a:80,2X:4*90,8*80,N80,N7a"
  469.   "7:2*90,D70,a2:aXa5:2a80,5:90,10*70,NaN6a"
  470.   "a7:90,2D70,2:XaX4:D:a80,:2a:3N10X3N5a"
  471.   "2a6:90,2D2*70,:XDX70,2:2*70,N:a:2a:17N4a"
  472.   "3a5:90,2Da2:X2DX2:70,130,N:4a4:2N10:3N3a"
  473.   "6a2:90,a3D:3DX3:2*130,:138,3a:a16:2N2a"
  474.   "7a2:90,7DX3:3*70,:4a170,a18:a"
  475.   "8a:8Da3:2*70,N:4a21:"
  476.   "9a:7Da2:3*70,N2:3a100,20:"
  477.   "9a:7D2a5*70,2:3a80,a2:a16:"
  478.   "10a4:D90,3a2*70,2N70,2ak3a100,2a17:"
  479.   "10a4:4a90,70,90,3N100,2a80,2a-30,2a17:"
  480.   "12a2:3a:a2*70,N:2N70,4a2*-30,2a16:"
  481.   "13a2:2a2:a90,N2:N100,70,4a2*-30,2a15:"
  482.   "17a4:N3:70,5a2*-30,a7:a8:"
  483.   "18a9:5a2*-30,a6:5a4:"
  484.   "9a3:6a8:180,5a2*-30,3a5:8a"
  485.   "10a3:5a6:70,:180,5a3*-30,a-30,k6:6a"
  486.   "11a3:4a7:X80,6a5*-30,2a3k2:5a"
  487.   "12a3:4a6:X290,:5a2*-30,-70,2*-30,a7k4a"
  488.   "13a3:3a5:X3:4a2*-30,3*-70,2*-30,a7k3a"
  489.   "14a3:3a5:3k:4a-30,3*-70,2*-30,2a7k2a"
  490.   "15a3:2a5:ka-10,2:4a3*-70,3*-30,2a7ka"
  491.   "16a2:2a5:kaka:5a2*-70,2*-30,5a4k2a"
  492.   "20a5:ka-10,k:5a-30,2*-70,8a3ka"
  493.   "20a5:ka2*-10,21a"
  494.   ))
  495. #|(area (elevations (xform 20 250)
  496.   "50g"
  497.   "g5sg3su12g6s21g"
  498.   "g5sg2sgsu12g5s21g"
  499.   "g2s2gsg2sgsu12g5s21g"
  500.   "g2s5g2sgsu11g2s24g"
  501.   "gs6g2s2g2s10g2s24g"
  502.   "8gs3g2s10g2s24g"
  503.   "8g2s3gs10g2s24g"
  504.   "7g3s3g2s9g2s24g"
  505.   "7g3s3g2s9g2s24g"
  506.   "7g3s3gsgs8g2s24g"
  507.   "7g2s4gsgs8gs25g"
  508.   "8gs5gsgs7gs25g"
  509.   "8gs5gsgs33g"
  510.   "8gs5gs2gs3gu28g"
  511.   "8gs8gs3g2u27g"
  512.   "9gs7gs3g2u27g"
  513.   "21g2u27g"
  514.   "21g2s27g"
  515.   "22g2s26g"
  516.   "23gs26g"
  517.   "27gs22g"
  518.   "25gs24g"
  519.   "26gs23g"
  520.   "25gs24g"
  521.   "50g"
  522.   "26gu23g"
  523.   "26gu23g"
  524.   "50g"
  525.   "26gu23g"
  526.   "50g"
  527.   "50g"
  528.   "50g"
  529.   "50g"
  530.   "50g"
  531.   "50g"
  532. ))|#
  533.  
  534. (side 1 (name "US") (adjective "Federal")
  535.   (color "blue,red,midnight-blue") (emblem-name "flag-usa")
  536.   (names-locked true))
  537.  
  538. (side 2 (name "CSA") (adjective "Confederate")
  539.   (color "red,blue,slate-gray") (emblem-name "flag-csa")
  540.   (names-locked true))
  541.  
  542. (set sides-min 2)
  543. (set sides-max 2)
  544.  
  545. (inf -21 -1 1 (n "Meredith") (cp -1) (appear 3))
  546. (inf -21 -1 1 (n "Cutler") (cp -1) (appear 3))
  547. (inf -21 -1 1 (n "Paul") (cp -1) (appear 4))
  548. (inf -21 -1 1 (n "Baxter") (cp -1) (appear 4))
  549. (inf -3 -16 1 (n "Rowley") (cp -1) (appear 6))
  550. (inf -3 -16 1 (n "Stone") (cp -1) (appear 6))
  551. (arty -21 -1 1 (n "1st Wainwright") (cp -1) (appear 5))
  552. (arty -21 -1 1 (n "2nd Wainwright") (cp -1) (appear 5))
  553. (inf -31 -1 1 (n "Cross") (cp -1) (appear 18))
  554. (inf -31 -1 1 (n "Kelly") (cp -1) (appear 18))
  555. (inf -31 -1 1 (n "Zook") (cp -1) (appear 18))
  556. (inf -31 -1 1 (n "Brooke") (cp -1) (appear 19))
  557. (inf -31 -1 1 (n "Harrow") (cp -1) (appear 19))
  558. (inf -31 -1 1 (n "Webb") (cp -1) (appear 19))
  559. (inf -31 -1 1 (n "Hall") (cp -1) (appear 20))
  560. (inf -31 -1 1 (n "Carroll") (cp -1) (appear 20))
  561. (inf -31 -1 1 (n "Smyth") (cp -1) (appear 20))
  562. (inf -31 -1 1 (n "Willard") (cp -1) (appear 21))
  563. (arty -31 -1 1 (n "1st Hazard") (cp -1) (appear 21))
  564. (arty -31 -1 1 (n "2nd Hazard") (cp -1) (appear 21))
  565. (inf -21 -1 1 (n "Graham") (cp -1) (appear 12))
  566. (inf -21 -1 1 (n "Ward") (cp -1) (appear 12))
  567. (inf -21 -1 1 (n "de Trobriand") (cp -1) (appear 27))
  568. (inf -21 -1 1 (n "Carr") (cp -1) (appear 13))
  569. (inf -21 -1 1 (n "Brewster") (cp -1) (appear 13))
  570. (inf -21 -1 1 (n "Burling") (cp -1) (appear 27))
  571. (arty -21 -1 1 (n "1st Rand") (cp -1) (appear 12))
  572. (arty -21 -1 1 (n "2nd Rand") (cp -1) (appear 14))
  573. (inf -43 -19 1 (n "Tilton") (cp -1) (appear 27))
  574. (inf -43 -19 1 (n "Schweitzer") (cp -1) (appear 27))
  575. (inf -43 -19 1 (n "Vincent") (cp -1) (appear 27))
  576. (inf -43 -19 1 (n "Day") (cp -1) (appear 28))
  577. (inf -43 -19 1 (n "Burbank") (cp -1) (appear 28))
  578. (inf -43 -19 1 (n "Weed") (cp -1) (appear 28))
  579. (inf -43 -19 1 (n "McCandless") (cp -1) (appear 31))
  580. (inf -43 -19 1 (n "Fisher") (cp -1) (appear 32))
  581. (arty -43 -19 1 (n "1st Martin") (cp -1) (appear 29))
  582. (arty -43 -19 1 (n "2nd Martin") (cp -1) (appear 29))
  583. (inf -48 -4 1 (n "Torbert") (cp -1) (appear 34))
  584. (inf -48 -4 1 (n "Bartlett") (cp -1) (appear 34))
  585. (inf -48 -4 1 (n "Russell") (cp -1) (appear 34))
  586. (inf -48 -4 1 (n "Grant") (cp -1) (appear 35))
  587. (inf -48 -4 1 (n "Neill") (cp -1) (appear 35))
  588. (inf -48 -4 1 (n "Shaler") (cp -1) (appear 35))
  589. (inf -48 -4 1 (n "Eustis") (cp -1) (appear 36))
  590. (inf -48 -4 1 (n "Wheaton") (cp -1) (appear 36))
  591. (arty -48 -4 1 (n "1st Tompkins") (cp -1) (appear 37))
  592. (arty -48 -4 1 (n "2nd Tompkins") (cp -1) (appear 37))
  593. (arty -48 -4 1 (n "3rd Tompkins") (cp -1) (appear 37))
  594. (inf -21 -1 1 (n "von Gilsa") (cp -1) (appear 6))
  595. (inf -21 -1 1 (n "Ames") (cp -1) (appear 6))
  596. (inf -31 -1 1 (n "Coster") (cp -1) (appear 8))
  597. (inf -31 -1 1 (n "Smith") (cp -1) (appear 8))
  598. (inf -31 -1 1 (n "Schimmelfenning") (cp -1) (appear 6))
  599. (inf -31 -1 1 (n "Krzyzanowski") (cp -1) (appear 6))
  600. (arty -31 -1 1 (n "1st Osborn") (cp -1) (appear 7))
  601. (arty -31 -1 1 (n "2nd Osborn") (cp -1) (appear 7))
  602. (inf -48 -4 1 (n "McDougall") (cp -1) (appear 10))
  603. (inf -48 -4 1 (n "Ruger") (cp -1) (appear 10))
  604. (inf -48 -4 1 (n "Candy") (cp -1) (appear 10))
  605. (inf -48 -4 1 (n "Kane") (cp -1) (appear 11))
  606. (inf -48 -4 1 (n "Greene") (cp -1) (appear 11))
  607. (arty -48 -4 1 (n "1st Muhlenburg") (cp -1) (appear 12))
  608. (arty -48 -4 1 (n "2nd Muhlenburg") (cp -1) (appear 12))
  609. (inf -21 -1 1 (n "Stannard") (cp -1) (appear 11))
  610. (inf -48 -4 1 (n "Lockwood") (cp -1) (appear 25))
  611. (arty -31 -1 1 (n "Ransom") (cp -1) (appear 24))
  612. (arty -31 -1 1 (n "McGilvey") (cp -1) (appear 28))
  613. (arty -31 -1 1 (n "Taft") (cp -1) (appear 24))
  614. (arty -31 -1 1 (n "Huntington") (cp -1) (appear 25))
  615. (arty -31 -1 1 (n "Fitzhugh") (cp -1) (appear 25))
  616. (cav 20 24 1 (n "Gamble"))
  617. (cav 20 23 1 (n "Devin"))
  618. (cav -43 -19 1 (n "McIntosh") (cp -1) (appear 36))
  619. (cav -43 -19 1 (n "Gregg") (cp -1) (appear 36))
  620. (cav -43 -19 1 (n "Farnsworth") (cp -1) (appear 57))
  621. (cav -43 -19 1 (n "Custer") (cp -1) (appear 57))
  622. (supply-train -48 -4 1 (cp -1) (appear 16))
  623.  
  624. (inf -1 -32 2 (n "Anderson") (cp -1) (appear 18))
  625. (inf -1 -32 2 (n " Benning") (cp -1) (appear 18))
  626. (inf -1 -32 2 (n "Law") (cp -1) (appear 31))
  627. (inf -1 -32 2 (n "Robertson") (cp -1) (appear 18))
  628. (arty -1 -32 2 (n "Henry") (cp -1) (appear 19))
  629. (inf -1 -32 2 (n "Barksdale") (cp -1) (appear 19))
  630. (inf -1 -32 2 (n "Kershaw") (cp -1) (appear 19))
  631. (inf -1 -32 2 (n "Semmes") (cp -1) (appear 20))
  632. (inf -1 -32 2 (n "Wofford") (cp -1) (appear 20))
  633. (arty -1 -32 2 (n "Cabell") (cp -1) (appear 20))
  634. (inf -1 -32 2 (n "Armisted") (cp -1) (appear 36))
  635. (inf -1 -32 2 (n "Garnett") (cp -1) (appear 36))
  636. (inf -1 -32 2 (n "Kemper") (cp -1) (appear 36))
  637. (arty -1 -32 2 (n "Dearing") (cp -1) (appear 37))
  638. (inf -1 -32 2 (n "Alexander") (cp -1) (appear 21))
  639. (inf -1 -32 2 (n "Eshleman") (cp -1) (appear 21))
  640. (inf -19 -34 2 (n "Gordon") (cp -1) (appear 9))
  641. (inf -19 -34 2 (n "Hays") (cp -1) (appear 9))
  642. (inf -19 -34 2 (n "Hoke") (cp -1) (appear 9))
  643. (inf -19 -34 2 (n "Smith") (cp -1) (appear 10))
  644. (arty -19 -34 2 (n "H. Jones") (cp -1) (appear 10))
  645. (inf -1 -32 2 (n "Jones") (cp -1) (appear 13))
  646. (inf -1 -32 2 (n "Nicholls") (cp -1) (appear 13))
  647. (inf -1 -32 2 (n "Steuart") (cp -1) (appear 13))
  648. (inf -1 -32 2 (n "Walker") (cp -1) (appear 14))
  649. (arty -1 -32 2 (n "Latimer") (cp -1) (appear 14))
  650. (inf -7 -34 2  (n "Daniel") (cp -1) (appear 7))
  651. (inf -7 -34 2 (n "Doles") (cp -1) (appear 7))
  652. (inf -7 -34 2 (n "Iverson") (cp -1) (appear 7))
  653. (inf -7 -34 2 (n "O'Neal") (cp -1) (appear 8))
  654. (inf -7 -34 2  (n "Ramseur") (cp -1) (appear 8))
  655. (arty -1 -32 2 (n "Carter") (cp -1) (appear 8))
  656. (arty -1 -32 2 (n "Dance") (cp -1) (appear 15))
  657. (arty -1 -32 2 (n "Nelson") (cp -1) (appear 15))
  658. (inf -1 -32 2 (n "Mahone") (cp -1) (appear 12))
  659. (inf -1 -32 2 (n "Perry") (cp -1) (appear 12))
  660. (inf -1 -32 2 (n "Posey") (cp -1) (appear 12))
  661. (inf -1 -32 2 (n "Wilcox") (cp -1) (appear 13))
  662. (inf -1 -32 2 (n "Wright") (cp -1) (appear 13))
  663. (arty -1 -32 2 (n "J. Lane") (cp -1) (appear 13))
  664. (inf 5 30 2 (n "Archer"))
  665. (inf -1 -32 2 (n "Brockenbrough") (cp -1) (appear 4))
  666. (inf 5 30 2 (n "Davis"))
  667. (inf -1 -32 2 (n "Pettigrew") (cp -1) (appear 4))
  668. (inf -1 -32 2 (n "J. Garnet") (cp -1) (appear 4))
  669. (inf -1 -32 2 (n "Lane") (cp -1) (appear 7))
  670. (inf -1 -32 2 (n "Perrin") (cp -1) (appear 7))
  671. (inf -1 -32 2 (n "Scales") (cp -1) (appear 7))
  672. (inf -1 -32 2 (n "Thomas") (cp -1) (appear 8))
  673. (arty -1 -32 2 (n "Poague") (cp -1) (appear 8))
  674. (arty -1 -32 2 (n "McIntosh") (cp -1) (appear 5))
  675. (arty -1 -32 2 (n "Pegram") (cp -1) (appear 3))
  676. (cav -19 -34 2 (n "Hampton") (cp -1) (appear 33))
  677. (cav -19 -34 2 (n "Jenkins") (cp -1) (appear 10))
  678. (cav -19 -34 2 (n "F. Lee") (cp -1) (appear 33))
  679. (cav -19 -34 2 (n "W. Lee") (cp -1) (appear 33))
  680. (supply-train -1 -32 2 (cp -1) (appear 16))
  681.  
  682. ;;; Should be more elaborate.
  683.  
  684. (scorekeeper (do last-side-wins))
  685.  
  686. ;;; We get at least three days.
  687.  
  688. (set last-turn 72)
  689.  
  690. ;;; ... and possibly another few hours.
  691.  
  692. (set extra-turn-chance 10)
  693.  
  694. (set calendar '(usual hour))
  695.  
  696. (set initial-date "6:00 1 Jul 1863")
  697.  
  698. ;; The game starts at six hours before noon.
  699.  
  700. (set initial-day-part 16.00)
  701.  
  702. (add u* already-seen 100)
  703.  
  704. (game-module (design-notes (
  705.   "This is a brigade-level simulation, inspired by the game described in"
  706.   "the July-Aug 1992 issue of Command."
  707.   ""
  708.   "The scale is 5 hexes/mile, 1 hour/turn."
  709.   )))
  710.  
  711.